#!/usr/bin/perl

use LWP::UserAgent;
use HTTP::Request::Common qw(POST GET);


my $status = shift;
my $ua = LWP::UserAgent->new();
my $req = POST 'http://aap_ugr:xxx@twitter.com/statuses/update.xml', 
  [ status => $status ];
my $res = $ua->request($req);
print "Resultado:\n",$res->content,"\n";
